* lisp/auth-source.el (auth-source-backends-parser-file): Fix missing stringp.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 152c5af59ae714fcd6a6361f0a9dcea8c749980b..e6582fa796a6cd9082c934e22de9d263fb41ef68 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -386,7 +386,8 @@ soon as a function returns non-nil.")
                    (equal (file-name-extension source) "gpg"))
               (file-name-sans-extension source)
             (or source "")))
-         (extension (or (file-name-extension source-without-gpg)
+         (extension (or (and (stringp source-without-gpg)
+                             (file-name-extension source-without-gpg))
                         "")))
     (when (stringp source)
       (cond